home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1990 / Jul 90 / MacApp.Tech$ 7⁄13⁄90 / 1572-Page Setup Default T-Jul90 < prev    next >
Encoding:
Text File  |  1991-03-06  |  1.3 KB  |  48 lines  |  [TEXT/GEOL]
  1. Item    6377675                         10-July-90        10:59PDT
  2.  
  3. From:   PERRY.G                         Gregg, Perry
  4.  
  5. To:     D2086                           Efficient Field Svc, C Faith,PRT
  6.  
  7. cc:     MACAPP.TECH$                    MacApp Technical
  8.  
  9. Sub:    Page Setup Default Thread
  10.  
  11. Alan,
  12.  
  13. Last time I wanted to change the default Page Setup values for MacApp I ended
  14. up in the Reset method below.  Though I was never clear about the naming
  15. conventions, f15-f0 contain some of the Page Setup goodies.  The default Reset
  16. below contains examples of how to stuff the TXWord record.
  17.  
  18. Giving you a start (i.e. no claim that this is the official way),
  19. Perry 'Loose Energy' Gregg
  20.  
  21. P.S. You would do something like INHERITED Reset; {then stuff a value}.
  22.  
  23. PROCEDURE TYourPrintHandler.Reset;
  24. TYPE
  25.    TXWord = PACKED RECORD
  26.    CASE INTEGER OF
  27.    0:  (c1, c0: CHAR);
  28.    1:  (b1, b0: SignedByte);
  29.    2:  (f15, f14, f13, f12, f11, f10, f9, f8, f7, f6, f5, f4, f3, f2, f1, f0:
  30. BOOLEAN);
  31.    3:  (i0: INTEGER);
  32.    END;
  33. VAR
  34.    didChange : BOOLEAN;
  35.    aHPrint   : Handle;
  36. BEGIN
  37.    INHERITED Reset;
  38.    aHPrint := fHPrint;
  39.    IF gCouldPrint & (aHPrint<>NIL) THEN
  40.    WITH TXWord(THPrint(aHPrint)^^.prStl.wDev) DO
  41.    IF b1 = 3 THEN
  42.    BEGIN
  43.    f2 := FALSE;
  44.    ValidatePrintRecord(didChange);
  45.    END;
  46. END;
  47.  
  48.